home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / embedded / m68k / tutor.arc / VECTMSG.SA < prev    next >
Text File  |  1990-01-05  |  5KB  |  111 lines
  1. VECTMSG  IDNT      0,1       Messages for vectors                    05/29/82
  2.  
  3.          XDEF      INITVMSG            .                             0,1
  4.  
  5.          XREF.S    AV4                 .                             0,1
  6.          XREF.S    AV11                .                             0,1
  7.          XREF.S    AV24                .                             0,1
  8.          XREF.S    AV48                .                             0,1
  9.          XREF      EVECTL
  10.  
  11.          SECTION   10
  12.          BSR       INITVMSG
  13.  
  14.          PAGE
  15.          SECTION   11
  16.  
  17.  
  18.  SPC 2
  19. ************************************************************
  20. *Reprogram some VECTORS to specific ERROR handler routines *
  21. ************************************************************
  22.  SPC 1
  23. INITVMSG LEA       VECT(PC),A0   A0 = START OF VECTOR TABLE
  24.          LEA       AV4,A1    A1 = FIRST VECTOR TO INITIALIZE
  25.          MOVE.L    #10,D0    D0 = COUNT
  26. VECTI    MOVE.L    A0,(A1)+  MOVE ADDRESS TO VECTOR
  27.          ADD.L     D0,A0     BUMP ADDRESS
  28.          CMP.L     #AV11+4,A1
  29.          BNE       VECTI
  30.  SPC 1
  31.          LEA       AV24,A1   A1 = NEXT VECTOR TO INITIALIZE
  32. VECTI2   MOVE.L    A0,(A1)+  MOVE ADDRESS TO VECTOR
  33.          ADD.L     D0,A0     BUMP ADDRESS
  34.          CMP.L     #AV48,A1
  35.          BNE       VECTI2
  36.  SPC 1
  37.          RTS
  38.  PAGE
  39. *************************************************************************
  40. * STANDARD VECTOR "MESSAGE" HANDLING ROUTINE ($30 IS TEMP STORAGE AREA) *
  41. *************************************************************************
  42. *
  43. VECT   MOVE.L #'OPCO',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  44.        BRA.S EVECT5
  45.        MOVE.L #'DIV0',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  46.        BRA.S EVECT5
  47.        MOVE.L #'CHCK',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  48.        BRA.S EVECT5
  49.        MOVE.L #'TP V',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  50.        BRA.S EVECT5
  51.        MOVE.L #'PRIV',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  52.        BRA.S EVECT5
  53.        MOVE.L #'TRAC',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  54.        BRA.S EVECT5
  55.        MOVE.L #'1010',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  56.        BRA.S EVECT5
  57.        MOVE.L #'1111',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  58.        BRA.S EVECT5
  59.        MOVE.L #'SPUR',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  60. EVECT5 BRA.S EVECT6
  61.        MOVE.L #'AV#1',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  62.        BRA.S EVECT6
  63.        MOVE.L #'AV#2',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  64.        BRA.S EVECT6
  65.        MOVE.L #'AV#3',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  66.        BRA.S EVECT6
  67.        MOVE.L #'AV#4',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  68.        BRA.S EVECT6
  69.        MOVE.L #'AV#5',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  70.        BRA.S EVECT6
  71.        MOVE.L #'AV#6',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  72.        BRA.S EVECT6
  73.        MOVE.L #'AV#7',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  74. EVECT6 BRA.S EVECT7
  75.        MOVE.L #'UT 0',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  76.        BRA.S EVECT7
  77.        MOVE.L #'UT 1',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  78.        BRA.S EVECT7
  79.        MOVE.L #'UT 2',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  80.        BRA.S EVECT7
  81.        MOVE.L #'UT 3',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  82.        BRA.S EVECT7
  83.        MOVE.L #'UT 4',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  84.        BRA.S EVECT7
  85.        MOVE.L #'UT 5',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  86.        BRA.S EVECT7
  87.        MOVE.L #'UT 6',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  88.        BRA.S EVECT7
  89.        MOVE.L #'UT 7',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  90. EVECT7 BRA.S EVECT
  91.        MOVE.L #'UT 8',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  92.        BRA.S EVECT
  93.        MOVE.L #'UT 9',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  94.        BRA.S EVECT
  95.        MOVE.L #'UT A',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  96.        BRA.S EVECT
  97.        MOVE.L #'UT B',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  98.        BRA.S EVECT
  99.        MOVE.L #'UT C',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  100.        BRA.S EVECT
  101.        MOVE.L #'UT D',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  102.        BRA.S EVECT
  103.        MOVE.L #'UT E',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  104.        BSR.S       EVECT
  105.        MOVE.L #'UT F',$30   MOVE TO $30, USE SHORT BRANCHES AND PRINT IT
  106. *
  107. *    SAVE REGISTERS AND PRINT VECTOR MSG
  108. *
  109. EVECT    BRA       EVECTL
  110.  
  111.          END